!> 示例：读取数据并计算
program example_io

    implicit none
    integer, external :: add  ! 声明外部函数, Fortran 77 范式

    integer :: x, y, z
    namelist /data/ x, y  ! 有名列表

    open (1, file='data.txt')  ! 打开文件
    read (1, nml=data)  ! 读取数据到有名列表
    close (1)  ! 关闭文件

    z = add(x, y)  ! 计算

    print *, "x, y, z (= x + y):", x, y, z  ! 输出结果

end program example_io
